home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 2 / Gekikoh Dennoh Club Vol. 2 (Japan).7z / Gekikoh Dennoh Club Vol. 2 (Japan) (Track 01).bin / fsw / zm302 / zm302_l.lzh / OMAKE.BAS < prev    next >
BASIC Source File  |  1996-03-04  |  455b  |  18 lines
  1.    10 dim int ds1(50000)
  2.    20 dim char sr1(50000),ds2(50000)
  3.    30 int i,f,fsize,ad_size
  4.    40 f=fopen("g:g.pcm","r")
  5.    50 get_size():ad_size=fsize
  6.    60 fread(sr1,ad_size,f)
  7.    70 fclose(f)
  8.    80 zm_convert_pcm(0,ad_size,sr1,ds1)
  9.   120 zm_convert_pcm(1,ad_size*4,ds1,ds2)
  10.   130 f=fopen("gg.PCM","c")
  11.   140 fwrite(ds2,ad_size,f)
  12.   150 fclose(f)
  13.   160 end
  14.   170 func get_size()
  15.   180 fsize=fseek(f,0,2)
  16.   190 fseek(f,0,0)
  17.   200 endfunc
  18.